home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iicomm.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  3.8 KB  |  136 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iicomm.str"-->
  9. <% 
  10. On Error Resume Next 
  11.  
  12. Dim path, currentobj
  13.  
  14. path=Session("dpath")
  15. Session("path")=path
  16. Set currentobj=GetObject(path)
  17. Session("SpecObj")=""
  18. Session("SpecProps")=""
  19.  %>
  20.  
  21. <!--#include file="iiset.inc"-->
  22. <!--#include file="iisetfnt.inc"-->
  23. <%
  24.     ' Do not use top.title.Global.update flag if page is loaded into a dialog
  25.     bUpdateGlobal = false
  26. %>
  27. <HTML>
  28. <HEAD>
  29. <TITLE></TITLE>
  30.  
  31. <SCRIPT LANGUAGE="javascript">
  32.  
  33.  
  34.     function okAdd() {
  35.     window.close();
  36.     }
  37.         
  38.  
  39.     function disableDefault(dir,fromCntrl, toCntrl){
  40.         if (!dir){
  41.             if (fromCntrl.value !=""){
  42.                 toCntrl.value=fromCntrl.value;
  43.                 fromCntrl.value="";
  44.             }
  45.         }
  46.         else{
  47.             if (toCntrl.value !=""){
  48.                 fromCntrl.value=toCntrl.value;
  49.                 toCntrl.value="";
  50.             }
  51.         }
  52.     }
  53.  
  54.     function enableDefault(chkCntrl){
  55.         chkCntrl.checked=true;
  56.     }
  57.  
  58.     function loadHelp(){
  59.         top.title.Global.helpFileName="iipy_7";
  60.     }
  61.  
  62. </SCRIPT>
  63.  
  64. </HEAD>
  65.  
  66. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 OnLoad="loadHelp();"   >
  67.  
  68. <FORM NAME="userform">
  69.  
  70. <TABLE HEIGHT="100%" WIDTH="100%"  CELLPADDING=0 CELLSPACING=0>
  71. <TR><TD VALIGN="top">
  72.     <TABLE BORDER=0 BGCOLOR="<%= Session("BGCOLOR") %>" WIDTH="99%"  CELLPADDING=10 CELLSPACING=0>
  73.         <TR>
  74.             <TD>
  75.                 <%= sFont("","","",True) %>
  76.                     <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">    
  77.                     <%= checkbox("AccessSSL","",false) %> <%= L_REQUIRESECCHANNEL_TEXT %>
  78.                     <IMG SRC="images/hr.gif" WIDTH=<%= L_REQUIRESECCHANNEL_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">    
  79.                     <BR>
  80.                     <IMG SRC="images/space.gif" WIDTH=5 HEIGHT=1 BORDER=0>
  81.                     <%= checkbox("AccessSSL128","",false) %> <%= L_REQUIRE128_TEXT %>
  82.                 
  83.                     <P>
  84.                     
  85.                     <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">                        
  86.                     <%= L_CLIENTCERT_TEXT %>
  87.                     <IMG SRC="images/hr.gif" WIDTH=<%= L_CLIENTCERT_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">                        
  88.                     <TABLE BORDER = 0>
  89.                         <TR>
  90.                             <TD><%= sFont("","","",True) %>
  91.                                 <%= printradio("AccessSSL", not currentobj.AccessSSLNegotiateCert, "document.userform.AccessSSLNegotiateCert.value='False';document.userform.AccessSSLRequireCert.value='False';",False) %> <%= L_DONOTACCEPT_TEXT %>
  92.                             </FONT></TD>
  93.                         </TR>
  94.                         <TR>
  95.                             <TD><%= sFont("","","",True) %>
  96.                                 <%= printradio("AccessSSL", currentobj.AccessSSLNegotiateCert, "document.userform.AccessSSLNegotiateCert.value='True';document.userform.AccessSSLRequireCert.value='False';",False) %> <%= L_ACCEPT_TEXT %>
  97.                             </FONT></TD>
  98.                         </TR>
  99.                         <TR>
  100.                             <TD><%= sFont("","","",True) %>
  101.                                 <%= printradio("AccessSSL", currentobj.AccessSSLRequireCert, "document.userform.AccessSSLNegotiateCert.value='True';document.userform.AccessSSLRequireCert.value='True';",False) %> <%= L_REQUIRE_TEXT %>
  102.                             </FONT></TD>
  103.                         </TR>                        
  104.                     </TABLE>
  105.         
  106.                     
  107.                     <INPUT TYPE="hidden" NAME="AccessSSLNegotiateCert" VALUE="<%= currentobj.AccessSSLNegotiateCert %>">
  108.                     <INPUT TYPE="hidden" NAME="AccessSSLRequireCert" VALUE="<%= currentobj.AccessSSLRequireCert %>">
  109.                     
  110.                     <P>
  111.                     <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
  112.                     <%= checkbox("AccessSSLMapCert","",false) %> <%= L_ENABLEMAPPING_TEXT  %>                    
  113.                     <IMG SRC="images/hr.gif" WIDTH=<%= L_ENABLEMAPPING_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
  114.                     <TABLE CELLPADDING = 3>
  115.                     <TR>
  116.                     <TD>
  117.                         <%= sFont("","","",True) %>
  118.                     <%= L_MAPDESC_TEXT %>
  119.                     </FONT>            
  120.                     </TD>
  121.                     </TR>
  122.                     </TABLE>
  123.                 </FONT>
  124.             </TD>
  125.         </TR>
  126.     </TABLE>
  127. <P>
  128. </TD>
  129. </TR>
  130. </TABLE>
  131. </FORM>
  132.  
  133. </BODY>
  134. </HTML>
  135.  
  136. <% end if %>